Amiga Plus 1997 #2/Amiga Plus CD - 1997 - No. 02.iso/demo-versionen/uptodate/install english

Text File | 1978-06-11 | 5KB | 227 lines

; $VER:UpToDate Install 2.0 (13.8.96)

(set @app-name "UpToDate 2.0")
(set @language "english")
(welcome "Welcome to the installation of UpToDate!")
(set Ok 0)
(set omp (cat "One moment please..." newline))

(complete 0)

(message "\n\nUpToDate Installationscript V2.0.\n"
            "You are about to install UpToDate V2.0 on your Amiga.\n"
            "\nPlease read the README Files carefully before you continue!\n"
            "\n©1994-1996 by Sebastian Rieger"
)

(if (< (/ (getversion) 65536) 37)

(
        (abort "You need at least Workbench 2.04 to use UpToDate!")
))

(set newdest
    (askdir (prompt "Please choose the location for the UpToDate-Drawer")
        (help @askdir-help)
        (default @default-dest)
    )
)

(set fulldest (tackon newdest "UpToDate"))
(set @default-dest fulldest)
(makedir
    (fulldest)
    (prompt "Creating drawer...")
    (help @makedir-help)
    (infos)
)


(copylib
    (prompt "Copying/Updating CanDo.Library\nThis library is needed for some additional programs of UTD.")
    (help
        "You need the CanDo.library for the UpToDate package.\n"
        "\nCanDo Legal Notice\n"
        "\nThis program was designed and written with CanDo v3.0 ©1994.\n"
        "Inovatronics, Inc.\n"
        "8499 Greenville Ave. #209B\n"
        "Dallas TX  75231  USA\n"
        "[phone], FAX [phone]\n"
        "\nCanDo, Deckbrowser and their\n"
        "support libraries are the\n"
        "copyrighted sole property of\n"
        "Inovatronics, Inc.  Reproduction\n"
        "and distribution for any use other\n"
        "than non-commercial applications\n"
        "is strictly prohibited.\n\n"
        @copylib-help
    )
    (source "Libs/CanDo.Library")
    (dest "Libs:")
    (confirm)
)

(set Parts
    (askoptions
        (prompt "Which parts should be installed?")
        (help @askoptions-help)
        (choices "Demonstrationfiles" "Soundfiles")
        (default %00)
    )
)

(copyfiles (prompt "Copying Main-Files...")
        (help @copyfiles-help)
        (source "UpToDate")
        (dest @default-dest)
    (pattern "#?")
    (files)
        (infos)
)

(copyfiles (prompt "Copying Icon...")
        (help @copyfiles-help)
        (source "Icons/Dir/UpToDate.info")
        (dest newdest)
)

(complete 20)

(copyfiles (prompt "Copying Overlays...")
        (help @copyfiles-help)
        (source "UpToDate/Overlays")
        (dest (tackon @default-dest "Overlays"))
        (all)
)

(copyfiles (prompt "Copying internal Extras...")
        (help @copyfiles-help)
        (source "UpToDate/Extra")
        (dest (tackon @default-dest "Extra"))
        (all)
)

(copyfiles (prompt "Copying Holiday-Files...")
        (help @copyfiles-help)
        (source "UpToDate/Feiertage")
        (dest (tackon @default-dest "Feiertage"))
        (all)
)

(copyfiles (prompt "Copying Markings...")
        (help @copyfiles-help)
        (source "UpToDate/Marks")
        (dest (tackon @default-dest "Marks"))
        (all)
)

(complete 45)

(copyfiles (prompt "Copying Catalogs...")
        (help @copyfiles-help)
        (source "Catalogs")
        (dest (tackon @default-dest "Catalogs"))
        (all)
)

(copyfiles (prompt "Copying Catalogs...")
        (help @copyfiles-help)
        (source "Catalogs/english")
        (dest "Locale:Catalogs/english")
        (all)
)

(if (in Parts 0)
    (copyfiles (prompt "Copying Examples...")
            (help @copyfiles-help)
            (source "Beispiele")
            (dest (tackon @default-dest "Beispiele"))
            (all)
    )
)

(complete 50)

(if (in Parts 1)
    (copyfiles (prompt "Copying Sounds...")
            (help @copyfiles-help)
            (source "Sounds")
            (dest (tackon @default-dest "Sounds"))
            (all)
    )
)

(copyfiles (prompt "Copying Config...")
        (help @copyfiles-help)
        (source "UpToDate/Konfig")
        (dest (tackon @default-dest "Konfig"))
        (all)
)

(copyfiles (prompt "Copying Preferencesfile...")
        (help @copyfiles-help)
        (source "UpToDate.prefs")
        (dest "env:")
        (pattern "(UpToDate.prefs)")
        (confirm)
)

(copyfiles (prompt "Copying Preferencesfile...")
        (help @copyfiles-help)
        (source "UpToDate.prefs")
        (dest "envarc:")
        (pattern "(UpToDate.prefs)")
        (confirm)
)

(complete 95)


(message
    "You must create your personal datafile. These informations are needed for the Circular Letter for example.\n"
)

(set Nam (askstring
        (prompt "Please enter your name:\n(e.g.: Daniel Demonstration)")
        (help @ask-string)
      )
)

(set Str (askstring
        (prompt "Please enter your address:\n(e.g. Demostreet 10)")
        (help @ask-string)
      )
)

(set PLZ (askstring
        (prompt "Please enter your ZIP Code and Place/Town:\n(e.g. 31123 Musterdorf)")
        (help @ask-string)
      )
)

(set Tel (askstring
        (prompt "Please enter your Phonenumber:\n(e.g. 02231/5553)")
        (help @ask-string)
      )
)

(set Ext (askstring
        (prompt "Please enter additional informations:\n(e.g. Demoproducts Inc.)")
        (help @ask-string)
      )
)

(textfile
    (prompt "Creating datafile...")
    (dest (tackon @default-dest "Name"))
    (append Nam "\n")
    (append Str "\n")
    (append PLZ "\n")
    (append Tel "\n")
    (append Ext "\n")
)

(complete 100)

(exit)